.DO External 

.LSTON 

. Page 

•>>>>>>>>>>>>>>>>>>>>>>>>>>> > > > > > > 

> nodule: Utils.BI 

> 

> BANK 1 nODULE 

> 

> This fnoduie contains routines that are part of the main utility 

> module and that must be kept in Bank t. 

> PROCEDURE RBuf_To_Buf2 

> PROCEDURE Buf2_To_f5Buf 

> PROCEDURE WrBuf_To_Buf2 

> PROCEDURE Buf2_To_i4rBuf 

> PROCEDURE RBuf.To^pr 

> PROCEDURE Spr_To_REuf 

> PROCEDURE WrBuf_To_Spr 
PROCEDURE Spr_To_i4rBuf 
PROCEDURE 2ero_RdBuf 
PROCEDURE Zern_F!nt 

FUNCTION 6etJC:y!_H_S< Phys i ca I B I ock ; 3 BVTES { !!rC;E } > : 
Cylinder : UORD { !!rC } 
Head : BVTE { !rE > 
Sector : BVTE { Irf } 
FUNCTIOH GoodHdr : BOOLERN 

Cylinder : yORD { !!rO ) 
Head : BVTE { Ir2 } 
Sector : SS-TE { !r3 > 
PROCEDURE Blocknoye< Destination : PTR { !!r2 } 

Source : PTR { HrO } 

> 

FUNCTION UpDate_Hdr : BOOLERN 

FUNCTION Get_Type< DriverType : BVTE { !r8 } > : 

BlockType : 3 BITS I ?rS/blts 3:1 > 
BlockNGmber : 3 BVTES { !rC:E } 

.LSTOFF 
.FIN 

.DO External 
-LSTON 



■i- 'i- ^ li- ' 



> 



.Page 

•>:>>>:>>>>>>>>>>>>>>>>> >>>> > 
Procedures : 

Ld_Stand_Stat { ino»-,«e standard status to output buffer } 

RBuf_To_£uf2 { moMe ReadBuffer to Buffer2 > 

Buf2_To_FlBuf { moye Buffer 2 to ReadBuffer } 

WrBuf_To_Buf2 { move WriteBuffer to Buffer2 > 

Buf2_To_14rBuf { moMe Buffer2 to Uri teBuffer } 

RBuf_To_Spr { moue ReadBuffer to Sparefirray ]• 

Spr_To_RBuf { move Sparefirray to ReadBuffer } 

ZeroJRdBuf { moue zeros to ReadBuffer } 

Inputi 



> Outputs: { none } 

> 

>>>>>.>>>>>>>>:>>>>>>>>>>>.>>>>>>>> > :> 
.LSTOFF 
.FIN 





.DO 


internal 






. LSTON 
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.FIN 






Buf2_To_RBuf : 


Ld 


lrO,«.HIBVTE. 


Buf2flrray 




Ld 


!r1, «.LOWBVTE. 


Buf2Rrray 




Ld 


lr2,».HIBVTE. 


RDummy 




Ld 


!r3,*.L0WBS'TE. 


RDuiRffiy 




Jr 


B_j1ove 




WrBuf_To_Buf2: 


Ld 


!rO,».HIBVTE. 


C WBuffer 1-1 > 




Ld 


lrt,«.L0!4BVTE. 


. < WBuffer 1-1 > 




Jr 


X_To_Buf2 




Buf2_To-J4rBuf: 


Ld 


lrO,#.HfBVTE. 


Buf2flrray 




Ld 


!r1,«.L0tJBVTE. 


Buf2flrray 




Ld 


I — -"t # t i i riJ ITT" 

lrjd^».HiBVTt. 


WBuffer 1-1 > 




Ld 


! rS . * . LOWBVTE , 


. K WBuffer 1-1 > 




Jr 


B-Hoye 




Spr_To_RBuf : 


Ld 


!rO,«.HIBVTE. 


Sparefirray 




Ld 


!rL«. LOWBVTE, 


. Sparefirray 




Ld 


lr2,«.HIBVTE. 


RBufferl 




Ld 


!r3,«. LOWBVTE 


. RBufferl 




Jr 


B_i1s"^ye 




RBuf_To_5pr : 


Ld 


!rO,«.HieYtE. 


flBuf fer 1 




Ld 


!r1>.LOI4BS-*TE. 


. RBufferl 


X_To JSpr : 


Ld 


!r2.,«.HIBVTE. 


Sparefirray 




Ld 


!r3,«.L0WBS^TE. 


. Sparefirray 




Jr 


B_MoMe 




i4rBuf_To_JSpr: 


Ld 


!rO,«.HIBVTE. 


WBufferl 




Ld 


!r1.«. LOWBVTE. 


. WBufferl 




Jr 


X_To_Spr 




R8uf_To_Buf2: 


Cp 


DataType^*User_Type ;nop if spare table data 




Jr 


Nz , Re turn_Uec tor 




Ld 


lrO.«.HIBVTE. 


ROumfTiy 




Ld 


!r1.«.L0WBSTE. 


, RDufliiny 


X_To_Buf2: 


Ld 


?r2,«.HjBVTE. 


Buf2firray 




Ld 


!r3,*. LOWBVTE. 


Buf2firray 




Cal ! 


Bfockfloue 




Re turnJJec tor : 


Jp 


Bank-Ret 




Spr_ToJ4rSuf : 


Ld 


!rO,#.HfBVTE. 


Sparefirray 




Ld 


ir1.#. LOWBVTE. 


. Sparefirray 




Ld 


!r2,#.HIBVTE. 


WBufferl 




Ld 


!r3,#. LOWBVTE. 


. WBufferl 




Jr 


B_Move 




Zero_RdBuf : 


Ld 


!r2,«.HIBVTE. 


Readflrray 




Ld 


!r3,«. LOWBVTE 


. Readflrray 




Cal 1 


ZeroBlock 






Jr 


Re turn_Uec tor 




"'-i.ii.-i. • 


i j-f 

Ld 


!r2.«.HiBVTE. 


Readfirray 




Ld 


?r3.«. LOWBVTE 


. Readfirray 




Ld 


!rE.».HfBVTE. 


< FBufferl - Readfirray ) 




Ld 


?rO.*0 ; init block to pattern 


Zero_FLp : 


Lde 


§!!r2, !rO 






Incm 


!!r2 





Dec IrE 

Jr Nz,Zero_FIp 

Ld !r2,«.HlBVTE. FBufferl 

Ld {r3,».L0WBVTE. FBufferl 

Ld Ir-E.^t.HIBVTE. ( FEndGap - FBufferl ) 

Ld !rF,«.L014BVTE. < FEndGap - FBufferl > 

Ld !rO,«$C6 jinit block to pattern 

Lde e!{r2, !rO 

(new !!r2 

Decw ! IrE 

Jr Hz,2ero_Flp1 

Jp Return_Uector 

.LSTOFF 

.DO External 

.LSTON 

.Page 



Function: GetJCyl_HJS ■( Get Cylinder, Head, and Sector } 

This routine extracts the cylinder, head, and sector information 
from a physical block number. 



fnputs: 



Outputs; 



PhysicalBlockHufflber ; 3 BVTES { !rC;E } 



> 
> 

> 
> 

> 

> 
> 
> 
> 
> 

> 

>>>>>>>>>>>>>>>>>> > > > > > > > > > > > > > > 
.LSTOFF 
-Firi 

-DO Interna! 

.LSTOH 

-Page 

.FIH 



Hi Cylinder 
LoCyl ii 
Head 
Sector 



BVTE { !rC } 

BVTE { irO > 

BVTE { !rE } 

SVTE { IrF > 



6etJCul-H-S: 



Ccjf I 

Push 
Push 



DiMHdsSctrs 

IrO 
!r1 



; return Cylinder *, remainder = !r0:3 
;get ready to pass results to caller 



Cal { 

Ld 
Ld 

Pop 
Pop 

Ld 



Di vSctrs 

IrF.IrS 
!rE. !r2 
IrD 
IrC 

PSectcr, IrF 
Bank_Ret 



; re turn m\ih !r1 - Head, !r2 = Sector 

Sector 
Head 

Lo Cy i i nder 
Hi Cy I i nder 

jUpDate physical sector 



.LSTOFF 

DO Externol 
.LSTON 
-Page 

:>>>>>>>>>>>>>>>>>>>>>:>>>>>>>>>>> 



> Function: UpDateJCurJCy! 
> 

> This function is responsible for reading tlie header off of 

> an arbitrary sector. The cylinder information is extracted 

> from the header and placed into the current cylinder memory 

> locations. 
> 

> Inputs: { none > 

> 

> Outputs: 

> UpDateJCurJCy I : BOOLEfifl { Zero flag is set If HOTC ReadHdr > > 

> Global Uariables Changed: 

> CurjCylinder 



> fl I gor i thm : 

> 

> BEGIN 

> Temp := GoodHdrC ReadHdr > 

> IF Temp 

> THEN Cur_Cy I inder := ReadHdr . Cy I i nder 

> UpDate_CurJL:yl := Temp 

> END 

.LSTOFF 
.FFfi 

.DO Internal 

.LSTOf'f 

.Page 

.FIN 



UpDateJCurJCy! : 

Call OoodHdr 

Jr Z.UDJCJC_£nd 



Ld CurJCyl,!rO 
Ld Cur_X:yl + 1, Irt 

Or Ir 1^*01 ; re turn non-zero status 



UDjCj:_End: Jp Bank_Ret 
.LSTOFF 

.DO External 

.LSTON 

.Page 

;> Function: GoodHdr 

; > 

;> This function Is responsible for reading a header off of a 
;> sector and checking that header for ua lidity. i.e.^ whether 

;> the cy I I nder J, head, and sector < and their complements > look 

:> reasonable. 

• % 

; > Inputs: { none } 

• y 

;> Outputs: 

;> GoodHdr : BOOLERN { Zero flag Is set if Header InMolid } 

;> GoodHdr.Cyi inder : WORD { ! IrO } 

;> GoodHdr. Head : BVTE { !r2 ) 

;> GoodHdr. Sec tor : BYTE { Ir3 } 



> fi I gor i thffi : 

> 

> BEGIH 

> ReadHdr 

> IF < Inverse < ReadHdr. Cy I inder > = ReadHdr . I nverseCy I i nder ) AND 

> ( lnMerse< ReadHdr. HdSctr ) = ReadHdr. InverseHdSctr ) 

> THEN 

> GoodHdr := True 

> GoodHdr . Cy I i nder : = ReadHdr . Cy I i nder 

> GoodHdr. Head := ReadHdr. HdSc tr /b i ts 7:6 

> GoodHdr. Sec tor := ReadHdr .HdSctr /bi ts 5:0 

> ELSE 

> GoodHdr := False 

> END 

> 

>>>>>>>>>>>> > >>>>>> > > > > > ■>■>>> > y > > 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

-Poqe 

.FIN 



GoodHdr : 

Ld ! r4 , *8 ; try hord to read a good header 

GdHdr_1: CaH ReadHdr 



Ld !r2.*.HIBVTE. RHHeader 

Ld lr3,«.L0NBS^TE. RHHeader 

Ld lrO,»ScrRegO 

Ld !r1..*5 ; load 6 bytes 



GdHdr_Lp: Ldei g!r0.§llr-2 

Ojnz ?r1, GdHdr_Lp 



Srp *l4rk_Scr ; context siMitch 

Xor ?r3. !rO ; check for valid header 

Xor !r4, !rt 

Xor !r5, !r2 

Rnd !r3,!r4 

Rnd !r3, Ir5 

Com ! r3 



Srp *Wrk_Sys ; con text s«jitch 

Cfr ScrReg5 ; assume bad header 

Jr Z,6dHdr_2 

TfTi Excpt_Stat.»Recoyery ; check for Recovery on 

Jr Z,GdHdr_End 

Call ChkOffJioCfff ;s-et auto_jDffset if not already on 

Ld ! r2 . * . H I BYTE . 10; wa It 100 ms be fore re try 1 ng 

Ld !r3>.LOI4BVTE. 10 

Call MsMait 



Ojnz 



!r4,GdHdr_1 ; re try if bad header 
GdHdr_£nd 



GdHdr_2: 



GdHdr_End: 



Ld ! rO J. Scr RegO ; GoodHdr . Cy I j nder : = ReadHdr . Cy I i nder 

Ld !r1,ScrReg1 

Ld !r2,ScrReg2 ; GoodHdr . Head := ReadHdr .HdSctr/bi ts ?:6 

Smap !r2 

Rr !r2 

Rr !r2 

find !r2,*$03 ;just leave head info in register 

Ld {r3,3crReg2 ; GoodHdr .Sector := ReadHdr .HdSctr/bi ts 5:0 

Rnd lr3,»$3F 

Ld ScrReg6,*1 

Or ScrRegS, ScrRegS ;set zero flag 

Jp Bank__Ret 



.LSTOFF 

-DO External 

-LSTOH 

.Page 

]>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

; > Procedure : B I ockMove 
• ■> 

p Th i s procedure per f orms the foil om i ng : 

;> < Etestination > < — ( Source > 



Where destination and source are both the same size ( naiFisly 
exactly 332 bytes plus CRC and ECC ?. 



Inputs: 



Destination : PTR { I !r2 } 
Source : PTR { i IrO > 



Outputs: { none ) 



■ .» .> ? j' ? f 



■>:>:'■>:>>>:>:>> :>>:5-> > ::• > > 
.LSTOFF 
.FIH 

.00 Internal 

.LSTON 

.Page 

.FIN 



B I ockfloMe : 



Cal I 



Ext_Push 



BIkJIoMe: 



Ld lr4,«.HIBS'TE. BIockLength 

Ld !r5,».L0UBVTE. BIockLength 

Lde Ir6,§! !r0 

Lde §l!r2, Ir5 

Inc'JiJ MrO 

Incui !lr2 

Oecw ! !r4 

Jr Nz,Blk.J1oye 

Call Ext_Pop 
Bet 



.LSTOFF 

-DO External 

.LSTON 
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;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
; > 

;> Function: UpDate_Hdr { UpDate Header- } 

• > 

; > Th I s f unc t i on is respons i b I e for compar i ng the header i n f orma t i on 

;> in the buffer < it is assumed that a ReadHdr operation has just 

j> been performed and that the header Info is currently residing in 

;> the Re<3dHdr buffer space ) to that of the global cylinder variable. 

;> If the two do not match j, then CurJCyl is updated to reflect the 

;> ReadHdr operations findings and the function returns a False 

;> value indicating that a seek is in order. 

;> Inputs: { none ) 

■ 

;> Outputs: 

;> UpDate_Hdr : BOOLEAN { zero flag is true if off- track } 

• \ 

;> Global Uariables Used: 
; > Cy I i nder 

■ > 

;> Global Uariables Changed: 
;> On_Trackj. CurjCyl 

; > R I gor i thm : 

;> BEGIN 

;> OiskStatus.On_Track := False 

•> !F OoodHdr 

;> THEM 

;> IF < RHHeader . Cy I i nder <> Cylinder > 

;> THEN 

; Cur_Cy I : = RHHeader . Cy I i nder 

:> On_Track := False 

";> UpOats-Hdr := False 

; > ELSE 

;> UpDate_Hdr := True 

;> i skStatus . On_Track := True 

";> END 

• > > > > > > > > > > >>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
.FIH 

.00 internal 
.LSTOH 
.Page 

.FIN 

UpDate_Hdr: 

Cal \ 

find 

Cal I 
Jr 

UpOateJ3nTrck: Ld 
Ld 

Xor 
Xor 
Or 
Ld 
Jr 



Ext_Push 

D f skStatus^ «$FF-On_Track 

GoodHdr 
Z,UpDt-Recaf 

Cur jCy I , I rO ; Cur_Cy I : = RHHeader . Cy I i nder 
Cur_Cyl-f-t, !r1 

IrO.Cyl inder ; check for correct cylinder Gddr^ss 
!r1 .Cy I i nder +1 
!rO; Irt 

\ rO^ *0 ; assume fa i I ure 
Nz, UpDate JErr 



UpDate_Err; 
UpDate_H_End: 



UpDt-Recal 



Or- 


D i skS t n tus: Track 


Ld 


! rO . * 1 


Or 


!rO, !rO 






tn\ ! 

•-•U I I 


t-J^ UjJ 


Pnn 


F i Q^S 


Jp 


Barik_Ret 


t-U 


I t-^n ttri.-i4nCeirvj-i i 




ntsa- •-•Jr t: 


Ld 


1 jr.Q ^ «Q 


Jr 


UpDate_£rr 


-LSTOFF 




.DO 


External 


.LSTON 




.Page 





^ >>>>>>>>>>>>>>>>>>>>>>>>>>> > 
Func t i on : 6e t_Type 

Th i s f tjnc I j on is r espons ibis for conver t i ng Pro f i I a-s ty ? e 
requests for the spare table and i.d. blocks into Uidgst 
types and blocknuisbers.- Get_Typs also -performs a - bounds - check 
on the b I ockruffiber . 



Inputs: 



Outputs: 



Or i verType 



B I ockType 
B I ockNufiiber 



: BS^TE { \rB } 



BYTE f !r8 > 

3 BVTES { !rC;E } 



R ! gor I thffi ; 



BEOfH 

BlockNumber := LogicalBlock 
IF < DriMerlype = Prof i la > 
THEN 

CfiSE Log i ca I B I ockHumber OF 

FFFFFF : 8 1 ockType := SpareTable 
BlockNumber := 1 

FFFFFE : B I ockType := ID 
BlockNumber := 1 

OTHERWISE Type := Data 

ELSE Type := Data 

IF < BlockHumber > flaxLoq { ca I B I ockHumber > 
THEN Rbort 
END 

■>>>>>>>>>>>>>>>>>.>•>>>>>>> > > > > >>>>.> 
.LSTOFF 
.FIN 

.DO internal 

.LSTON 
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.FIN 



Get-Type: 



Cq 1 1 Load-Log i ca I 

Ld !rO, !r8 

Ld I rS . «User_Type 

Or IrOJrO ; IF < Driyer_Type = Profile > 

Jr Nz , Ge t_Type-Check 

Ld !rO,«$FF .IF BlockNumber = $-2... 

Ld !r1.«$FF 

Ld !r2,«$FE 

Call Sub3 ; compare 

Or i.rOJrl 

Or !r0.!r2 

Jr N2/3-T_ChkiD 

Ld !r8,»Sprtbl_Type 

G_T_ProCnurt: Clr !rC 

CIr !rD 

Ld !rE,«1 

Jr OetJTypsJCheck 

G_T_Chk ID: Ld 1 1-0 , «$FF ; I F B I ockNuraber = »$- 1 . . . 

Ld !r]^»$FF 

Ld ir2.*$FF 

Cal I Sub3 ; compare 

Or !rO^ Ir 1 

Or (r0^fr2 

Jr Hz.6et_Type_Check 

Ld !r8,#fD_Type 

Jr G_TJProCnvrt 

Ge t_Type_Chteck : Ld ! rO.. «H i MaxLog i ca i 1 F < B I ockNumber > rtaxLog i ca I > . 

Ld ! r 1 , *M i dHaxLog i cq I 

Ld ! r 2 , *LcMaxLog i ca I 

Cai I Subo ; compare 

Jr Uge, 6et_Type-End 

Ld !r0.«2 :byte 2 

Ld fr1^»ll legal-Block 

Call SetStatus' 

Call Abort 

Get_Type_End: Jp Barik_Ret 



.LSTOFF 



